home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / us cities (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  11.6 KB  |  329 lines
  1. 10 print"[147]"
  2. 20 sys57812"tod.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 40 printchr$(14):poke53280,0:poke53281,0:printchr$(158):clr:i=rnd(-ti)
  4. 50 poke214,2:print:printtab(16)"[155][204][207][193][196][211][212][193][210]"
  5. 60 printtab(16)"[153][163][163][163][163][163][163][163][163]"
  6. 70 printtab(14)"[156][208]resents...."
  7. 80 poke214,7:print:forx=1to3:printtab(8)chr$(18)"                        "
  8. 90 nextx:poke214,8:print:printchr$(159)chr$(18)tab(10)"[213][206][201][212][197][196][160][211][212][193][212][197][211][160][195][201][212][201][197][211]"
  9. 100 gosub61000
  10. 110 open15,8,15,"r0:top score=top score":input#15,er:close15
  11. 112 ifer<>63then120
  12. 115 open3,8,3,"top score,s,r"
  13. 117 input#3,hs
  14. 118 input#3,hs$
  15. 119 close3
  16. 120 poke214,11:print:printchr$(5)tab(5)"[196]o you need directions? (y/n)":poke649,1
  17. 130 geta$:ifa$<>"y"anda$<>"n"then130
  18. 150 ifa$="n"then400
  19. 160 poke649,0:print"[147]":printchr$(159)tab(14)"[196][201][210][197][195][212][201][207][206][211]":poke214,4:print
  20. 170 print"1)  [197]ach question is worth between 10       and 50 points."
  21. 180 print"2)  [212]ype out your answer completely -       [211][208][197][204][204][201][206][199] and"
  22. 190 print"                 [145][195][193][208][201][212][193][204][201][218][193][212][201][207][206] count!"
  23. 200 print"3)  [212]he program ends exactly 5 minutes      after you begin."
  24. 210 print"4)  [212]he number of questions you have"
  25. 215 print"    correctly answered in a row is"
  26. 220 print"    displayed in the upper righthand        corner of the screen.
  27. 230 [153]"5)  (NULL)o end the program early, type          'quit' when";
  28. 240 [153]" answering a question."
  29. 250 [153][163]13)[199](159)"sys(NULL)ress any key":[151]649,10
  30. 260 [161]a$:[139]a$[178]""[167]260
  31. 270 [151]649,0:[153]"load":[153][163]14)"peek(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL)"
  32. 280 [153][163]4)"(for consecutive correct answers)
  33. 290 printtab(5)chr$(5)"[206][213][205][194][197][210]";:printtab(21)"[194][207][206][213][211] [208][207][201][206][212][211]"
  34. 300 printchr$(30)tab(8)"5............100-500"
  35. 310 printtab(7)"10............500-1000"
  36. 320 printtab(7)"15............1000-1500"
  37. 330 printtab(7)"20............1500-2000"
  38. 340 printtab(7)"25............2000-4000"
  39. 350 printtab(7)"30............10000, [150]plus 5":printtab(21)"added minutes"
  40. 360 printtab(21)"of playing time!
  41. 370 [153][163]13)[199](159)"sys(NULL)ress any key":[151]649,10
  42. 380 [161]a$:[139]a$[178]""[167]380
  43. 390 [151]649,0
  44. 400 qu[178]140:co[178]0:[134]dp(qu):nd[178]0:po[178]0
  45. 405 [158]49155:[158]49152,7,10,0,"xxxx"
  46. 410 [141]850:[140]
  47. 420 i[178][181]([187](1)[172]qu)[170]1:[139]dp(i)[178]1[167]420
  48. 430 dp(i)[178]1:i[178](i[172]2)[171]1:i[178]i[170]9
  49. 440 [129]h[178]1[164]i:[135]qu$:[130]h:[135]an$:[141]970
  50. 450 [151]214,12:[153]:[153]"";qu$;:[153][199](152)" is located in what state?";
  51. 460 [151]649,10
  52. 470 [139][194](49160)[177][178]5[167]1910
  53. 480 [151]214,14:[153]:[153][199](156)"(NULL)our atnnswer? ";:[141]2740
  54. 490 [139]ya$[178]"quit"[176]ya$[178]"(NULL)uit"[176]ya$[178]"(NULL)(NULL)right$(NULL)"[167]1910
  55. 500 [153]:[151]649,0:[139]ya$[179][177]an$[167][137]680
  56. 510 [151]53280,14:[153][199](149)"lenorrect!"
  57. 520 [151]54296,15:[151]54277,87:[151]54278,89:[151]54275,1:[151]54273,19
  58. 530 [151]54276,67:[129]kk[178]1[164]130:[130]:[151]54276,64:[151]54273,50:[151]54276,67
  59. 540 [129]kk[178]1[164]130:[130]:[151]54276,64:[151]54296,0
  60. 550 po[178]po[170]rs:co[178]co[170]1:nd[178]nd[170]1
  61. 570 [151]214,10:[153]:[153][163]29)"    cmdcmdcmd"co
  62. 580 [151]214,19:[153]:[153]"            "
  63. 590 [151]214,19:[153]:[153][163]4)[199](144);po:[129]x[178]1[164]1000:[130]
  64. 600 [139]co[178]5[167][141]2190
  65. 610 [139]co[178]10[167][141]2280
  66. 620 [139]co[178]15[167][141]2370
  67. 630 [139]co[178]20[167][141]2460
  68. 640 [139]co[178]25[167][141]2550
  69. 650 [139]co[178]30[167][141]2640
  70. 660 [139]nd[178]140[167][137]1910
  71. 670 [140]:[137]410
  72. 680 co[178]0:nd[178]nd[170]1:[140]
  73. 690 [151]53280,0:[151]54296,15:[151]54277,0:[151]54278,240
  74. 700 [135]a:[135]b:[135]c:[139]b[178][171]1[167][137]730
  75. 710 [151]54273,a:[151]54272,b:[151]54276,17:[129]t[178]1[164]200:[130]:[151]54276,16:[137]690
  76. 720 [131]11,150,110,9,77,5,-1,-1,-1
  77. 730 v$[178]"(NULL)he right answer is "
  78. 740 v$[178]v$[170]an$[170]"."
  79. 750 [129]l[178]54272[164]54296:[151]l,0:[130]
  80. 760 [151]54296,15:[151]54277,0:[151]54278,240:[151]54273,34:[151]54272,75
  81. 770 [151]54284,0:[151]54285,240:[151]54280,14:[151]54279,24
  82. 780 [129]t[178]1[164][195](v$):[153][202](v$,t,1)"_cmd";:jk[178]jk[170]1:[139]jk[179]2[167]800
  83. 790 jk[178]0:[151]54276,17:[151]54283,17:[151]54276,16:[151]54283,14
  84. 800 [130]:[153]" "
  85. 810 [151]214,17:[153]:[129]x[178]1[164][195](an$):[153][163]20)"stoptab(";:[130]x
  86. 820 [129]x[178]1[164]2000:[130]
  87. 830 [139]nd[178]140[167][137]1910
  88. 840 [137]410
  89. 850 [153]"load";:[151]53280,5:[151]53281,1:     [129]a[178]1[164]4
  90. 860 [153][199](31)" * * * * * * ";[199](28)"                           wait";
  91. 870 [153][199](31)"  * * * * *  "
  92. 880 [130]a:[153][199](31)" * * * * * * ";[199](28)"                           "
  93. 890 [151]214,20:[153]:[153][199](28)"                                        "
  94. 900 [153][199](28)"                                        wait";
  95. 910 [151]214,9:[153]:[153][163]13)"clr(NULL)(NULL)val(NULL)(NULL)right$(NULL)(NULL)";nd[170]1
  96. 920 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  97. 921 [151]214,8:[153]:[153][163]26)"stoportantantantantantantantantantantan^"
  98. 922 [153][163]26)"stop(NULL)left$(NULL)=";hs;[163]38)"stop(NULL)"
  99. 923 [153][163]26)"stop(NULL)len(NULL)=";co;[163]38)"stop(NULL)"
  100. 924 [153][163]26)"stop/tantantantantantantantantantantanexp"
  101. 925 [151]214,8:[153]:[153]" stoportantantantantantantantantan^"
  102. 926 [153]" stop(NULL)(NULL)right$(NULL)val     (NULL)"
  103. 928 [153]" stop/tantantantantantantantantanexp"
  104. 930 [151]214,18:[153]:[153][163]1)[199](154)"(NULL)(NULL)(NULL)(NULL)close(NULL)len(NULL)(NULL)valon"
  105. 940 [153][163]17)[199](151)"peek(NULL)(NULL)(NULL)(NULL)on"
  106. 950 [153][163]28)[199](154)"(NULL)(NULL)right$(NULL)(NULL) (NULL)atn(NULL)(NULL)val"
  107. 960 [151]214,19:[153]:[153][163]4)[199](144)po:[142]
  108. 970 [129]ll[178]1[164]15:rs[178][181]([187](1)[172]41)[170]10
  109. 980 [151]214,19:[153]:[153][163]31)"stop";rs
  110. 990 [130]ll
  111. 1000 [142]
  112. 1010 [151]214,17:[153]:[153][163]13)[199](31)"             "
  113. 1020 [153][163]13)"             "
  114. 1030 [153][163]13)"             "
  115. 1040 [151]214,18:[153]:[153][163]17)[199](144)"peek(NULL)(NULL)(NULL)(NULL)":[142]
  116. 1050 [139]co[178]5[167]bo[178][181]([187](1)[172]401)[170]100
  117. 1060 [139]co[178]10[167]bo[178][181]([187](1)[172]501)[170]500
  118. 1070 [139]co[178]15[167]bo[178][181]([187](1)[172]501)[170]1000
  119. 1080 [139]co[178]20[167]bo[178][181]([187](1)[172]501)[170]1500
  120. 1090 [139]co[178]25[167]bo[178][181]([187](1)[172]2001)[170]2000
  121. 1100 [139]co[178]30[167]bo[178]10000:co[178]0:[137]1120
  122. 1110 [151]53280,2:[142]
  123. 1120 [129]y[178]1[164]5:[151]214,19:[153]:[153][163]17)"10000"
  124. 1130 [129]x[178]1[164]500:[130]x
  125. 1140 [151]214,19:[153]:[153][163]17)"     ":[129]x[178]1[164]500:[130]x
  126. 1150 [130]y
  127. 1160 po[178]po[170]10000:[158]49155:[158]49152,7,10,0,"xxxx":[137]660
  128. 1170 [143]
  129. 1180 [151]214,8:[153]:[129]x[178]1[164]9
  130. 1200 [153]"                                       ":[130]x
  131. 1210 ds[178][181]([187](1)[172]7)[170]3
  132. 1220 rn[178][181]([187](1)[172]ds)[170]1
  133. 1230 [151]214,10:[153]:[153][199](30)"right$'ve picked a number between 1 and";ds;"cmd."
  134. 1240 [153]"chr$uess it and your bonus is doubled!"
  135. 1250 [151]649,10
  136. 1260 [153]"clr(NULL)hat is your guess?stop"
  137. 1270 [153][163]21)"frefrefre"
  138. 1280 [161]yg$:yg[178][197](yg$)
  139. 1290 [139]yg[179]1[176]yg[177]ds[167]1280
  140. 1300 [151]214,12:[153]:[153][163]22)"";yg$
  141. 1310 [151]649,0
  142. 1320 [139][197](yg$)[179][177]rn[167][153][199](144)"(NULL)orry, the number was";rn;"cmd.":[137]1400
  143. 1330 [153][199](150)"(NULL)(NULL)(NULL) str$right$str$ right$(NULL)!!"
  144. 1340 s[178]54272:[151]s[170]24,15:[151]s[170]6,240:[151]s[170]4,17
  145. 1350 [129]a[178]1[164]5:[129]u[178]1[164]150[169]25:[151]s[170]1,u:[130]u:[130]a:[151]s[170]4,32
  146. 1360 [151]214,15:[153]:[153][163]14)"str$ (NULL) (NULL) peek (NULL) val"
  147. 1370 [151]214,19:[153]:[153][163]17)"     ":[129]x[178]1[164]1000:[130]
  148. 1380 [151]214,19:[153]:[153][163]17);bo[172]2
  149. 1390 bo[178]bo[172]2:[129]x[178]1[164]1000:[130]:[142]
  150. 1400 [129]x[178]1[164]1000:[130]:[142]
  151. 1410 [131]"atnkron","(NULL)hio","atnlbany","(NULL)ew (NULL)ork","atnlbuquerque","(NULL)ew (NULL)exico"
  152. 1420 [131]"atnmarillo","(NULL)exas","atnnchorage","atnlaska","atnnn atnrbor","(NULL)ichigan"
  153. 1430 [131]"atnnnapolis","(NULL)aryland","atnsheville","(NULL)orth lenarolina","atntlanta","chr$eorgia"
  154. 1440 [131]"atntlantic lenity","(NULL)ew mid$ersey","atnustin","(NULL)exas","peekaltimore","(NULL)aryland"
  155. 1450 [131]"peekangor","(NULL)aine","peekaton (NULL)ouge","(NULL)ouisiana","peekattle lenreek","(NULL)ichigan"
  156. 1460 [131]"peekillings","(NULL)ontana","peekirmingham","atnlabama","peekismarck","(NULL)orth str$akota"
  157. 1470 [131]"peekoise","right$daho","peekoston","(NULL)assachusetts","peekoulder","lenolorado"
  158. 1480 [131]"peekridgeport","lenonnecticut","peekutte","(NULL)ontana","lenarlsbad","(NULL)ew (NULL)exico"
  159. 1490 [131]"lenarson lenity","(NULL)evada","lenasper","(NULL)yoming","lenedar (NULL)apids","right$owa"
  160. 1500 [131]"lenharlotte","(NULL)orth lenarolina","lenhattanooga","(NULL)ennessee","lenheyenne"
  161. 1510 [131]"(NULL)yoming","lenhicago","right$llinois","str$allas","(NULL)exas","str$ayton","(NULL)hio"
  162. 1520 [131]"str$aytona peekeach","asclorida","str$avenport","right$owa","str$enver","lenolorado"
  163. 1530 [131]"str$es (NULL)oines","right$owa","str$etroit","(NULL)ichigan","str$over","str$elaware"
  164. 1540 [131]"str$uluth","(NULL)innesota","vall (NULL)aso","(NULL)exas","vallmira","(NULL)ew (NULL)ork"
  165. 1550 [131]"valrie","(NULL)ennsylvania","valugene","(NULL)regon","ascairbanks","atnlaska"
  166. 1560 [131]"ascargo","(NULL)orth str$akota","asct. (NULL)auderdale","asclorida","asct. (NULL)orth","(NULL)exas"
  167. 1570 [131]"ascresno","lenalifornia","chr$ary","right$ndiana","chr$rand ascorks","(NULL)orth str$akota"
  168. 1580 [131]"chr$rand (NULL)apids","(NULL)ichigan","chr$reat ascalls","(NULL)ontana","chr$reen peekay"
  169. 1590 [131]"(NULL)isconsin","chr$reensboro","(NULL)orth lenarolina","left$arrisburg","(NULL)ennsylvania"
  170. 1600 [131]"left$artford","lenonnecticut","left$elena","(NULL)ontana","left$onolulu","left$awaii"
  171. 1610 [131]"left$ot (NULL)prings","atnrkansas","left$ouston","(NULL)exas","left$untington","(NULL)est (NULL)irginia"
  172. 1620 [131]"left$untsville","atnlabama","right$ndependence","(NULL)issouri","right$ndianapolis"
  173. 1630 [131]"right$ndiana","mid$ackson","(NULL)ississippi","mid$acksonville","asclorida"
  174. 1640 [131]"mid$efferson lenity","(NULL)issouri","mid$uneau","atnlaska","(NULL)noxville","(NULL)ennessee"
  175. 1650 [131]"(NULL)ansing","(NULL)ichigan","(NULL)as (NULL)egas","(NULL)evada","(NULL)exington","(NULL)entucky"
  176. 1660 [131]"(NULL)ittle (NULL)ock","atnrkansas","(NULL)os atnngeles","lenalifornia","(NULL)ouisville"
  177. 1670 [131]"(NULL)entucky","(NULL)adison","(NULL)isconsin","(NULL)anchester","(NULL)ew left$ampshire"
  178. 1680 [131]"(NULL)emphis","(NULL)ennessee","(NULL)iami","asclorida","(NULL)ilwaukee","(NULL)isconsin"
  179. 1690 [131]"(NULL)inneapolis","(NULL)innesota","(NULL)obile","atnlabama","(NULL)ontgomery","atnlabama"
  180. 1700 [131]"(NULL)ontpelier","(NULL)ermont","(NULL)urfreesboro","(NULL)ennessee","(NULL)uskegon","(NULL)ichigan"
  181. 1710 [131]"(NULL)ashville","(NULL)ennessee","(NULL)ew left$aven","lenonnecticut","(NULL)ew (NULL)rleans"
  182. 1720 [131]"(NULL)ouisiana","(NULL)ew (NULL)ork","(NULL)ew (NULL)ork","(NULL)iagara ascalls","(NULL)ew (NULL)ork"
  183. 1730 [131]"(NULL)orfolk","(NULL)irginia","(NULL)akland","lenalifornia","(NULL)gden","(NULL)tah"
  184. 1740 [131]"(NULL)maha","(NULL)ebraska","(NULL)rlando","asclorida","(NULL)awtucket","(NULL)hode right$sland"
  185. 1750 [131]"(NULL)hiladelphia","(NULL)ennsylvania","(NULL)hoenix","atnrizona","(NULL)ierre"
  186. 1760 [131]"(NULL)outh str$akota","(NULL)ittsburgh","(NULL)ennsylvania","(NULL)rovidence","(NULL)hode right$sland"
  187. 1770 [131]"(NULL)rovo","(NULL)tah","(NULL)aleigh","(NULL)orth lenarolina","(NULL)apid lenity","(NULL)outh str$akota"
  188. 1780 [131]"(NULL)eno","(NULL)evada","(NULL)ichmond","(NULL)irginia","(NULL)oanoke","(NULL)irginia"
  189. 1790 [131]"(NULL)ockford","right$llinois","(NULL)acramento","lenalifornia","(NULL)t. (NULL)ouis","(NULL)issouri"
  190. 1800 [131]"(NULL)t. (NULL)aul","(NULL)innesota","(NULL)t. (NULL)etersburg","asclorida","(NULL)alt (NULL)ake lenity"
  191. 1810 [131]"(NULL)tah","(NULL)an atnntonio","(NULL)exas","(NULL)an str$iego","lenalifornia","(NULL)an ascrancisco"
  192. 1820 [131]"lenalifornia","(NULL)anta asce","(NULL)ew (NULL)exico","(NULL)arasota","asclorida"
  193. 1830 [131]"(NULL)avannah","chr$eorgia","(NULL)cranton","(NULL)ennsylvania","(NULL)eattle","(NULL)ashington"
  194. 1840 [131]"(NULL)ioux ascalls","(NULL)outh str$akota","(NULL)outh peekend","right$ndiana","(NULL)pokane"
  195. 1850 [131]"(NULL)ashington","(NULL)yracuse","(NULL)ew (NULL)ork","(NULL)allahassee","asclorida"
  196. 1860 [131]"(NULL)ampa","asclorida","(NULL)oledo","(NULL)hio","(NULL)opeka","(NULL)ansas","(NULL)renton"
  197. 1870 [131]"(NULL)ew mid$ersey","(NULL)ucson","atnrizona","(NULL)ulsa","(NULL)klahoma","(NULL)uscaloosa"
  198. 1880 [131]"atnlabama","(NULL)aterbury","lenonnecticut","(NULL)heeling","(NULL)est (NULL)irginia"
  199. 1890 [131]"(NULL)ichita","(NULL)ansas","(NULL)ilkes-peekarre","(NULL)ennsylvania","(NULL)inston-(NULL)alem"
  200. 1900 [131]"(NULL)orth lenarolina"
  201. 1910 [153]"load";:[153][199](142):[151]53280,0:[151]53281,0
  202. 1915 [158]49155
  203. 1920 [139]nd[179]140[167]1940
  204. 1930 [151]214,15:[153]:[153]"open   congratulations!  you answered all"
  205. 1935 [153]"    of the questions in the program."
  206. 1940 [153]"   ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  207. 1950 [129]i[178]0[164]9:[153]"   (NULL)"[166]32)"(NULL)":[130]
  208. 1960 [153]"   /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  209. 2000 [139]po[177]hs[167]hs[178]po:[141]3000:[137]2050
  210. 2020 [151]214,5:[153]:[153][163]13)"contyour score open"po
  211. 2030 [153][163]13)"tab(tab(tab(tab( tab(tab(tab(tab(tab(def"
  212. 2045 [153][163]13)"conthigh score open"hs
  213. 2047 [153][163]13)"tab(tab(tab(tab( tab(tab(tab(tab(tab(def"
  214. 2049 [153][163]19[171]([195](hs$)[173]2))"by "hs$
  215. 2050 [151]214,18:[153]
  216. 2060 [153][163]11)"cont(pcont)lay again"
  217. 2070 [153][163]11)"cont(rcont)eturn to loadstar
  218. 2090 geta$:ifa$<>"p"anda$<>"r"then2090
  219. 2110 ifa$="p"thenrun
  220. 2120 open15,8,15,"r0:hello connect=hello connect":input#15,er%
  221. 2130 close15
  222. 2140 ifer%<>63thenend
  223. 2150 poke646,peek(53281):print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  224. 2160 print"run"
  225. 2170 poke631,13:poke632,13:poke633,13:poke198,3:end
  226. 2180 end
  227. 2190 gosub1010:gosub2710
  228. 2200 fory=1to25:bo=int(rnd(1)*401)+100
  229. 2210 poke214,19:print:printtab(17);bo
  230. 2220 poke53280,3
  231. 2230 poke214,19:print:printtab(17)"     "
  232. 2240 poke53280,0
  233. 2250 nexty
  234. 2260 poke214,19:print:printtab(17);bo:poke53280,5
  235. 2270 forx=1to2000:next:gosub1170:po=po+bo:return
  236. 2280 gosub1010:gosub2710
  237. 2290 fory=1to25:bo=int(rnd(1)*501)+500
  238. 2300 poke214,19:print:printtab(17);bo
  239. 2310 poke53280,3
  240. 2320 poke214,19:print:printtab(17)"     "
  241. 2330 poke53280,0
  242. 2340 nexty
  243. 2350 poke214,19:print:printtab(17);bo:poke53280,5
  244. 2360 forx=1to2000:next:gosub1170:po=po+bo:return
  245. 2370 gosub1010:gosub2710
  246. 2380 fory=1to25:bo=int(rnd(1)*501)+1000
  247. 2390 poke214,19:print:printtab(17);bo
  248. 2400 poke53280,3
  249. 2410 poke214,19:print:printtab(17)"     "
  250. 2420 poke53280,0
  251. 2430 nexty
  252. 2440 poke214,19:print:printtab(17);bo:poke53280,5
  253. 2450 forx=1to2000:next:gosub1170:po=po+bo:return
  254. 2460 gosub1010:gosub2710
  255. 2470 fory=1to25:bo=int(rnd(1)*501)+1500
  256. 2480 poke214,19:print:printtab(17);bo
  257. 2490 poke53280,3
  258. 2500 poke214,19:print:printtab(17)"     "
  259. 2510 poke53280,0
  260. 2520 nexty
  261. 2530 poke214,19:print:printtab(17);bo:poke53280,5
  262. 2540 forx=1to2000:next:gosub1170:po=po+bo:return
  263. 2550 gosub1010:gosub2710
  264. 2560 fory=1to25:bo=int(rnd(1)*2001)+2000
  265. 2570 poke214,19:print:printtab(17);bo
  266. 2580 poke53280,3
  267. 2590 poke214,19:print:printtab(17)"     "
  268. 2600 poke53280,0
  269. 2610 nexty
  270. 2620 poke214,19:print:printtab(17);bo:poke53280,5
  271. 2630 forx=1to2000:next:gosub1170:po=po+bo:return
  272. 2640 gosub1010:gosub2710
  273. 2650 fory=1to4:bo=10000
  274. 2660 poke214,19:print:printtab(17)"10000":forx=1to300:next
  275. 2670 poke214,19:print:printtab(17)"     ":forx=1to300:next
  276. 2680 poke214,19:print:printtab(17)"10000"
  277. 2690 nexty:forx=1to1000:nextx:co=0
  278. 2700 po=po+10000:gosub2910:sys49155:sys49152,7,10,0,"xxxx":return
  279. 2710 s=54272:pokes+24,15:pokes+6,240:pokes+4,17
  280. 2720 fora=1to5:foru=1to255step10:pokes+1,u:nextu:nexta:pokes+4,32
  281. 2730 return
  282. 2740 ty%=3:ln%=22
  283. 2750 ya$="":poke198,0:u=53280
  284. 2760 geta$:print"[154][164][157]";
  285. 2770 ifa$=""then2760
  286. 2780 ifa$=chr$(13)thenprintchr$(32):return
  287. 2790 if(a$=chr$(20)andlen(ya$))thenya$=left$(ya$,len(ya$)-1):goto2895
  288. 2800 iflen(ya$)>=ln%thent%=peek(u):pokeu,1:pokeu,t%:goto2760
  289. 2810 if((ty%and1)=1)and(a$>="[193]")and(a$<="[218]")then2880
  290. 2820 if((ty%and2)=2)and(a$>="a")and(a$<="z")then2880
  291. 2830 if((ty%and4)=4)and(a$>="0")and(a$<="9")then2880
  292. 2840 if((ty%and8)=8)and(a$>=chr$(32))and(a$<=chr$(127))then2880
  293. 2850 ifa$=chr$(32)then2880
  294. 2860 ifty%=0then2880
  295. 2870 goto2760
  296. 2880 ya$=ya$+a$
  297. 2890 printa$;:ifa$=chr$(34)thenpoke212,0
  298. 2892 goto2760
  299. 2895 print" [157][157] [157]";
  300. 2900 goto2760
  301. 2910 print"[147]";:poke53280,0:poke53281,0
  302. 2920 poke214,9:print:printtab(12)"[151][217][207][213] [200][193][214][197] [197][193][210][206][197][196]"
  303. 2930 poke214,11:print:printtab(12)"5[151] more minutes"
  304. 2940 poke214,13:print:printtab(12)"of playing time!"
  305. 2950 forx=1to4000:next
  306. 2960 return
  307. 3000 print"[154]you've beaten the high score!
  308. 3010 [153]"   enter your name please"
  309. 3020 [153]"      tantantantantantantantantantantantantantantantan"
  310. 3030 [153]"onon";:ln%[178]16:ty%[178]6:q6[178]0:[141]2750:hs$[178]ya$
  311. 3040 [159]15,8,15,"s0:top score":[160]15
  312. 3050 [159]3,8,3,"top score,s,w"
  313. 3060 [152]3,hs
  314. 3070 [152]3,hs$
  315. 3080 [160]3:[142]
  316. 10000 [159]15,8,15,"s0:us cities":[160]15:[148]"us cities",8:[128]
  317. 61000 [151]214,13:[153]
  318. 61110 [153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  319. 61120 [153]"  print#                                    "
  320. 61130 [153]"          (NULL)(NULL)right$(NULL)valstr$ (NULL)(NULL)atn(NULL)val(NULL) lenright$(NULL)right$val(NULL)        "
  321. 61140 [153]"            by (NULL)oger (NULL)orton           "
  322. 61145 [153]"       (c) 1989 by (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL), right$(NULL)len.     "
  323. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #64     "
  324. 61160 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  325. 61170 [153]"           atnll rights (NULL)eserved        "
  326. 61180 [153]"                                      "
  327. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  328. 61195 [142]
  329.